home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Mops 2.7 / Mops Manual / Part I.srd / Part I.srd.rsrc / PICT_83.png < prev    next >
Portable Network Graphic  |  1996-01-02  |  117KB  |  816x1056  |  8-bit (256 colors)
Labels: book | reckoner | sky | tree | windowpane
OCR: Lesson 16 I-79 107 DRAW : turnAngle 108 360 get : sides turnAngie 109 get sides 110 DO get : length move sel 111 turnAngle turn: 112 LOOP 113 114 SIZE: len #sides Stores sides and goes to Home 115 get : self put: sides put: length 116 home : self up: self m 117 118 SPIN: reps Spins series of polygons around point 119 home self 1 C get: initLen size: self 120 0 > reps 121 BEGIN reps get: maxReps 122 WHILE draw: self get: deltaDeg turn: self 123 get: deltaLen length reps 124 REPEAT 125 126 m CLASSI INIT: Default Poly is 30-dot triangle 127 30 size: self 100 put: maxReps 128 129 ,class 130 131 Create pen named Bic 132 Pen BIC 1 3 3 134 Create Polygon named Anna 135 Poly ANNA 136 6 C si .ze: Anna Line The statement "need sin" ensures that the Sin file is loaded before this one This file makes ...